home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0669.ZIP / DBTRANS.CMD < prev    next >
OS/2 REXX Batch file  |  1986-11-10  |  942b  |  49 lines
  1. ;DBTRANS.CMD
  2. SET DLDIR "C:\DATA\"
  3. DIALER1:
  4. DIAL "2"
  5. WAITFOR "Name:" 45
  6. IF WAITFOR
  7. TRANSMIT "ONE!"
  8. WAITFOR "Password:"
  9. TRANSMIT "PASSWORD!"
  10. UPLOAD:
  11. WAITFOR "Your choice?"
  12. PAUSE 1
  13. TRANSMIT "U!"
  14. WAITFOR "Your choice?"
  15. PAUSE 1
  16. TRANSMIT "Y!"
  17. WAITFOR "Begin your transfer procedure."
  18. SENDFILE BYMODEM "ONE_TWO.DB?"
  19. IF SUCCESS
  20. GOTO DWNLOAD
  21. ELSE
  22. GOTO UPLOAD                     ;IF TRANSFER INCOMPLETE, TRY AGAIN
  23. ENDI
  24. DWNLOAD:
  25. WAITFOR "Your choice?"
  26. PAUSE 1
  27. TRANSMIT "D!"
  28. WAITFOR "Your choice?"
  29. PAUSE 1
  30. TRANSMIT "Y!"
  31. WAITFOR "File spec?"
  32. TRANSMIT "C:\DATA\TWO_ONE.DB?"
  33. WAITFOR "Begin your transfer procedure."
  34. GETFILE BYMODEM
  35. IF SUCCESS
  36. WAITFOR "Your choice?"   ;ALL DONE, EXIT
  37. TRANSMIT "^Z!"
  38. WAITFOR "Password:"
  39. TRANSMIT "EXITOUT!"
  40. HANGUP
  41. QUIT
  42. ELSE
  43. GOTO DWNLOAD             ;TRANSFER INCOMPLETE, TRY AGAIN
  44. ENDI
  45. ELSE            ;IF CALL NOT COMPLETED (IF NOT WAITFOR)
  46. HANGUP
  47. PAUSE 10
  48. GOTO DIALER1
  49. ENDI